home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 401_500 / DISK0417 / DISK0417.ZIP / PROLOG.ARC / SAMPLES.ARC / NUMBER.PRO < prev    next >
Text File  |  1986-07-20  |  256b  |  11 lines
  1. go  :- 
  2.     repeat,
  3.     print( 'Enter a number: ' ),
  4.     get0( Num ), nl,
  5.         (
  6.           ( (Num > 58), print( 'You did not enter a number'),
  7.                 nl, fail)
  8.           ;
  9.           (print( 'Do it over, please. ' ), nl, fail )
  10.         ).
  11.